MacFormat 1999 Spring/macformat-077.iso/Demos/RealPool Demo/3D.DAT/00135.ls

Text File | 1998-05-02 | 240 b | 13 lines

on mouseDown
  butsound()
  repeat while the mouseDown
    set yu to the scrollTop of cast 134
    set yu to yu - 10
    if yu < 0 then
      set yu to 0
    end if
    set the scrollTop of cast 134 to yu
    updateStage()
  end repeat
end